0 REM ------------------------
1 REM -   ULTRA BASIC-DEMO   -
2 REM ------------------------
3 :
4 GRAPH:COL0,0,15:CLEAR:GRACOL15,0:FORI=2TO80STEP2.78
5 CIRCLE160,100,I:CIRCLE0,0,I:CIRCLE319,199,I:NEXT:FORI=0TO6:BRDSCR:NEXT
6 SPACEWT:CLEAR:GRACOL7,0:FORI=160TO255STEP3
7 CIRCLE160,100,I:NEXT
8 SPACEWT:CLEAR:GRACOL1,0:FORI=0TO200
9 SETRND(0)*319,RND(0)*199:NEXT
10 X2=0:Y2=47:FORX=0TO318:X1=X:Y1=SIN(X/319*4*(null))*47+47
11 SETX1,Y1:SETX1+1,Y1:SETX1,Y1+1:SETX1+1,Y1+1
12 SETX1,199-Y1:SETX1+1,199-Y1:SETX1,198-Y1:SETX1+1,198-Y1
13 NEXT
14 FORI=0TO319:SETI,0:SETI,199:NEXT:FORI=0TO199:SET0,I:SET319,I:NEXT
15 SPACEWT:BRDSCR:INVERT:SPACEWT:INVERT:BRDSCR
16 CLEAR:GRACOL13,5:COL5,0,0:FORI=255TO0STEP-2:CIRCLE160,100,I:NEXT
17 SPACEWT:BRDSCR:SPACEWT:CLEAR:GRACOL7,2:COL10,0,0:II=.0428571429*3
18 FORI=0TO2*(null)STEPII:CIRCLE160+70*SIN(I),100+70*COS(I),20
19 CIRCLE160+70*SIN(I),100+70*COS(I),10:NEXT:SPACEWT
20 CLEAR:COL0,0,0:GRACOL3,6:FORI=0TO100:SETRND(0)*319,RND(0)*199:NEXT
21 FORI=0TO5:SPACEWT:INVERT:NEXT:BRDSCR:BRDSCR
22 GRACOL7,0:CLEAR:COL0,0,0:FORX=-80TO80STEP3
23 Y=20*SQR(1-X^2/80^2):CIRCLE160+X,100+Y,11:CIRCLE160+X,100-Y,11:NEXT
24 FORI=0TO200:SETRND(0)*319,RND(0)*199:NEXT
25 SPACEWT:CLEAR:GRACOL5,0:FORII=10TO1STEP-1
26 FORI=2TO60STEPII:CIRCLE160,100,I:NEXTI,II
27 SPACEWT:BRDSCR:CLEAR:GRACOL15,0:X2=0:Y2=97
28 FORX=12TO309STEP7:X1=X:Y1=SIN(X/319*4*(null))*60+97
29 FORI=2TO12STEP3:CIRCLEX1,Y1,I:CIRCLEX1,199-Y1,I:NEXTI,X
30 FORI=0TO319:SETI,99:NEXTI
31 FORI=0TO319STEP16:FORII=97TO101:SETI,II:NEXTII,I
32 SPACEWT:GRACOL12,0:FORI=0TO35:NEXT:GRACOL11,0:FORI=0TO35:NEXT:GRACOL0,0
33 CLEAR:GRACOL15,11:FORI=0TO50
34 CIRCLERND(0)*319,RND(0)*199,RND(0)*70:NEXT
35 SPACEWT:BRDSCR:GRACOL12,11:BRDSCR:GRACOL11,11:CLEAR
36 GRACOL3,0
37 FORI=2TO255STEP2:CIRCLE160,100,ABS(70-I):CIRCLE160,100,(70-I)AND255:NEXT
38 SYS49152
39 :
40 REM --------------------------------
41 REM FRAGEN? DANN SCHREIBT AN:
42 REM   CHRISTIAN FIERES
43 REM   VOGELWAIDSTRASSE 2
44 REM   6457 MAINTAL 3
45 REM
46 REM   TEL. 06181/431629
47 REM --------------------------------